<script>on mouseUpif icon of me = 3358thenset icon of me to "Close Box2"visual effect zoom close fastpop cardend ifend mouseUpon mousedown-- set icon of me to "Clicked Close Box2"repeat while the mouse is downif the mouseV < top of me then set icon of me to "Close Box2"elseif the mouseV > Bottom of me then set icon of me to "Close Box2"elseif the mouseH < Left of me then set icon of me to "Close Box2"elseif the mouseH > right of me then set icon of me to "Close Box2"else set icon of me to "Clicked Close Box2"end ifend ifend ifend repeatend Mousedown</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>368</left>
<top>21</top>
<right>509</right>
<bottom>124</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Calendar</name>
<script>on mousedownselect the clickChunkif word 2 of the clickLine is 1thenPopMenuelse-- convert the date to dateItems -- Get the current date.put the clickText into dateSelected -- Get the selected date.-- Make sure that the person has selected a day an not something else.-- Delete the non-breaking space character if it is there.if first char of dateSelected is " " then delete char 1 of dateSelectedif ((dateSelected is an integer) and (dateSelected ≥ 1) ¬and (number of chars in dateSelected ≤ 2)) ¬and word 2 of the clickLine is 3then-- select the clickChunk -- Give the user a visual indication.put currentMonth(dateSelected) into dateSelected -- Get selected date.askForDate dateSelectedend ifend ifend mousedown--on AskForDate PassedDatelock screenput PassedDate into TheDateput empty into TheEventput empty into TheShortDateput 1 into DefaultNorepeat-- "TheDate" = dateitemsif TheDate is emptythenif TheShortDate is empty then put date() into TheShortDateask "Date:" with TheShortDateif it is empty then exit AskForDateconvert it to short dateif the result is not emptythenrepeatask "The date you entered is not valid:" && TheShortDate & return & "Enter Date:" with TheShortDateif it is empty then exit AskForDateconvert it to short dateif the result is empty then exit repeatend repeatend ifput it into TheShortDateconvert it to dateItemsput it into TheDateelseput TheDate into TheShortDateconvert TheShortDate to short dateend if-- at this point there are two varibles "TheDate" = dateItems-- and "TheShortDate" = the short datego card (item 2 of TheDate) of this bgask "What reoccuring event happens on" && TheShortDate & "?" with TheEventif it is empty then exit AskForDateput it into TheEventput "Link to which record?" into theMessageget SelectRecord (theMessage,DefaultNo)if it is empty then exit AskForDateput item 1 of it into DefaultNodelete item 1 of itput it into CardName-------------------put "Date:" && TheShortDate & return & "Event:" && TheEvent & return &¬"Linked to record:" && CardName & return & return &¬"Is This Correct?" into CorrectMessageAnswer CorrectMessage with cancel or no or yesif it is cancel then exit AskForDateif it is yes then exit repeatput empty into TheDateend repeat-------------------Put item 2 of TheDate into TheMonthPut item 3 of TheDate into TheDayput "(" & item 1 of TheDate & ")" into TheYearput number of lines in bg field "ThisMonth" + 1 into LineNoput bg field "ThisMonth" into TheEntriesPut the length of TheMonth + 1 into TheLengthrepeat with count = number of lines in TheEntries down to 1delete char 1 to TheLength of line count of TheEntriesend repeatput 0 into countrepeat with count = number of lines in TheEntries down to 1if TheDay > item 1 of line count of TheEntries then exit repeatif count = 1 then put 0 into countend repeatput return before line (count + 1) of TheEntriesput TheDay & ", " & TheEvent && TheYear into line (count + 1) of TheEntries-- repeat with count = number of lines in TheEntries down to 1-- if line count of TheEntries is empty-- then delete line count of TheEntries-- end repeatrepeat with count = number of lines in TheEntries down to 1put TheMonth & "/" before line count of TheEntriesend repeatput TheEntries into bg field "ThisMonth"put TheShortDate & "," & TheEvent & return into CardInfoput CardInfo after bg field "Birthday" of card CardNamepop card into Stupidpush card CardName-------------------------------------------------------------------------drawCalendar TheDateunlock screenend AskForDatefunction SelectRecord theMessage,DefaultNoset cursor to watchput bg field "All Records Index" of card 1 of bg "Records" into TheListget XScrollBox(DefaultNo,theMessage,TheList)if it is not emptythenreturn itelsereturn emptyend ifend SelectRecordon PopMenuif the clickText = word 1 of methenput POPmonth(first word of me) into TheMonthput TheMonth &",1," & word 2 of me into TheDateconvert TheDate to dateItemsdrawCalendar TheDateelseAsk "Draw Calendar For What Year" with word 2 of meput word 1 of me &",1," & it into TheDateconvert TheDate to dateItemsdrawCalendar TheDateend ifend PopMenufunction PopMonth Curmonthput "January,February,March,April,May,June,July,August,September,"¬& "October,November,December" into TheListrepeat with SelectNumber = 1 to the number of items in TheListif Curmonth = item SelectNumber of theList then exit repeatend repeatget FullHPop(TheList,1,SelectNumber)if it ≠ emptythen return item 1 of itelse return Curmonthend popMonth--function currentMonth theDay-- Return the currently displayed month.if theDay is empty then put 1 into theDayput word 1 of me && theDay & "," && word 2 of me into returnValueconvert returnValue to dateItems-- put returnvaluereturn returnValueend currentMonthfunction monthTitle theDate-- Get the name of the month to display in the title.convert theDate to long datereturn word 2 of theDate & " " & last word of theDateend monthTitleon updateCalendar-- Make sure the calendar is up to date.-- Note: This routine is called from an openStack handler.convert the date to dateItems -- Get today's date.-- Don't update if the current year/month is currently shown.if item 1 to 2 of currentMonth() ≠ item 1 to 2 of itthendrawCalendar itelse -- Just update the day for this month.markToday item 3 of itend ifend updateCalendaron drawMonth whichMonth-- Determine which month to draw and then draw the calendar.put currentMonth() into theDateif whichMonth is "prev" thenif item 2 of theDate is "1" thenput "12" into item 2 of theDatesubtract 1 from item 1 of theDateelse subtract 1 from item 2 of theDateelse if whichMonth is "next" thenif item 2 of theDate is "12" thenput "1" into item 2 of theDateadd 1 to item 1 of theDateelse add 1 to item 2 of theDateend if-- put "send" && quote & "drawCalendar" && TheDate & quote && ¬-- "to bg field calendar"drawCalendar theDateend drawMonthon drawCalendar theDisplayMonth-- Draw the current calendar.-- Notes: The display month parameter should be the first of the month.-- The month display depends upon a mono-spaced character field.-- This value should be the length of each day field.put 3 into DayCharWidth-- Make sure that the date is the first.convert theDisplayMonth to dateItemsput 1 into item 3 of theDisplayMonth-- Get a value that we will use to compute days in this month.convert theDisplayMonth to seconds-- Add 32 days to the currently displayed month (60*60*24*32) = 2764800put theDisplayMonth + 2764800 into nextMonthconvert nextMonth to dateItemsput item 3 of nextMonth - 2 into DaysInMonthOffset-- Get some remaining values that we will use a few times.convert theDisplayMonth to dateItems-- To shift the starting day of the week, set StartDayShift to-- correct shift values (ie. put 1 into StartDayShift -- for Sunday-- put 2 into StartDayShift -- for Monday).put 1 into StartDayShift -- for start day Sunday-- Provide for starting on alternate days of the week.put ((13 - item 7 of theDisplayMonth + StartDayShift) mod 7) ¬into theDayofWeeklock screen-- Note: Single digit days are preceeded by a non-breaking space-- to preserve field formatting.put monthTitle(theDisplayMonth) & return & ¬" S M T W T F S" & return & ¬char (theDayofWeek * DayCharWidth) + 1 to ¬((37 * DayCharWidth) - (DaysInMonthOffset * DayCharWidth)) of ¬("  1 " & ¬" 2  3  4  5  6  7  8 " & ¬" 9 10 11 12 13 14 15 " & ¬"16 17 18 19 20 21 22 " & ¬"23 24 25 26 27 28 29 " & ¬"30 31") into me-- Format the title and header.setHeader-- If the displayed month is current then hilite the day.convert the date to dateItems -- Get the current Month.if item 1 to 2 of theDisplayMonth is item 1 to 2 of itthen markToday item 3 of itunlock screenend drawCalendaron setHeaderset the textStyle of me to "Plain"set the textFont of word 1 to 2 of me to "Geneva"set the textSize of word 1 to 2 of me to "12"set the textStyle of word 1 to 2 of me to "Bold,Condense"end setHeaderon markToday theNewDay-- Mark the current day by setting its textStyle to bold.-- Undo old styling.set textStyle of line 3 of me to plain-- Set new bolding.set textStyle of word theNewDay of line 3 of me to bold,condenseend markToday</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>22</top>
<right>494</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23718</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Month Prev</name>
<script>on mouseUp-- Tell the month caledar to draw the previous month-- (or just update the calendar if the option key is down).if there is a bg fld "Calendar" thenif the optionKey is down thensend "updateCalendar" to bg fld "Calendar"else send "drawMonth prev" to bg fld "Calendar"end ifpass mouseUpend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>495</left>
<top>22</top>
<right>507</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31435</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Month Prev</name>
<script>on mouseUp-- Tell the month caledar to draw the previous month-- (or just update the calendar if the option key is down).if there is a bg fld "Calendar" thenif the optionKey is down thensend "updateCalendar" to bg fld "Calendar"else send "drawMonth next" to bg fld "Calendar"end ifpass mouseUpend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>10</left>
<top>48</top>
<right>341</right>
<bottom>286</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ThisMonth</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>384</left>
<top>273</top>
<right>472</right>
<bottom>292</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>RecordNo</name>
<script>on mouseupset cursor to watchask "Go to month #:"set cursor to watchlock screengo card it of this bgunlock screen with visual scroll down very fastend mouseup</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>474</left>
<top>271</top>
<right>492</right>
<bottom>293</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9105</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownset cursor to watchmouseStillDownend mouseDownon mouseStillDownset cursor to watchlock screengo to prev card of this backgroundunlock screen with visual effect wipe right very fastset cursor to handend mouseStillDown</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>491</left>
<top>271</top>
<right>509</right>
<bottom>293</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9104</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseDownset cursor to watchmouseStillDownend mouseDownon mouseStillDownset cursor to watchlock screengo to next card of this backgroundunlock screen with visual effect wipe left very fastset cursor to handend mouseStillDown</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>10</left>
<top>24</top>
<right>341</right>
<bottom>47</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name></name>
<script>on mousedownput POPmonth(me) into TheMonth-- if theMonth is not empty then put theMonth into me-- set name of this card to mego card TheMonth-- put "drawCalendar" && theMonth into theMessage-- send theMessage to bg field calendarend mousedownfunction PopMonth Curmonthput "January,February,March,April,May,June,July,August,September,"¬& "October,November,December" into TheListrepeat with SelectNumber = 1 to the number of items in TheListif Curmonth = item SelectNumber of theList then exit repeatend repeatget FullHPop(TheList,1,SelectNumber)if it ≠ emptythen return item 1 of itelse return Curmonthend popMonth</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>408</left>
<top>127</top>
<right>457</right>
<bottom>178</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20965</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Entry</name>
<script>on mouseUpsend AskForDate to bg field Calendarend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Calendar</text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text><span class="style18">pril 1994</span><span class="style10"> S M T W T F S </span><span class="style19"> 1</span><span class="style10">  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 </span></text>
</content>
<name>Calendar</name>
<script>on openbackgroundset dontsearch of this bg to falsesend UpdateCalendar to bg field calendarend openbackgroundon closebackgroundset dontsearch of this bg to trueend closebackgroundon closecard-- UpdateWindowsFields Notesend closecardon opencardPageNo-- checkCalplay "Slide"-- UpdateWindows Gifts-- UpdateWindows Notesend opencard---- updating card ----------on checkCalput "drawCalendar" && short name of this card into theMessagesend theMessage to bg field calendarend checkCalon PageNoput the number of the first card of this bg -1 into StartNoput number of this card - startno && "/" && number of cards of this bg into bg field "RecordNO"end PageNo-----------------------------</script>
